0 PRINT"[147]":POKE53281,5:POKE53280,5
2 PRINT"[147][153][205]ENU 1"
4 PRINT"[196][213][206][199][197][207][206][211]"
6 PRINT"&"
8 PRINT"[196][210][193][199][207][206][211]"
10 PRINT"[153][212][210][197][193][211][213][210][197] [193][201][196]"
12 PRINT"[158][183][183][183][183][183][183][183][183][183][183][183][183][183][183]"
14 PRINT"[144][194]Y [212]HE [194]ALRON 1987"
16 PRINT"[151][195]HOOSE ONE OF THE FOLLOWINGS:"
18 PRINT"1.[208]OTIONS"
20 PRINT"2.[199]EMS"
22 PRINT"3.[193]RMOR OR [211]HIELD"
24 PRINT"4.[211]WORD"
26 PRINT"5.[202]EWELRY"
28 PRINT"6.[200]ITS JNE."
30 PRINT"7.[205]ENU 2"
31 SYS49152
36 GETA$:IFA$=""THEN36
38 IFA$="1"THEN60
40 IFA$="2"THEN186
42 IFA$="3"THEN414
44 IFA$="4"THEN574
46 IFA$="5"THEN916
48 IFA$="6"THEN1220
50 IFA$="7"THEN1226
54 IFA$<>"1"ANDA$<>"2"ANDA$<>"3"ANDA$<>"4"ANDA$<>"5"ANDA$<>"6"ANDA$<>"7"THEN36
56 END
58 REM *** POTIONS ***
60 INPUT"[147][200]OW MANY POTIONS";P
62 PRINT"[147][208]OTION OF:[158]"
63 PRINT"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
64 FORI=1TOP
66 X=INT(100*RND(TI)+1)
68 IFX<2THENPRINT"AGILITY"
70 IFX=3THENPRINT"ANIMAL CONTROL"
72 IFX=>4ANDX<=6THENPRINT"ANTIDOTE"
74 IFX=>7ANDX<=8THENPRINT"BLENDING"
76 IFX=>9ANDX<=10THENPRINT"BUG REPELLANT"
78 IFX=>11ANDX<=12THENPRINT"CLAIRAUDIENCE"
80 IFX=>13ANDX<=14THENPRINT"CLAIRVOYANCE"
82 IFX=>15ANDX<=16THENPRINT"CLIMBING"
84 IFX=>17ANDX<=18THENPRINT"DEFENSE"
86 IFX=>19ANDX<=20THENPRINT"DIMINUTION"
88 IFX=>21ANDX<=24THENPRINT"DELUSION"
90 IFX=25THENPRINT"DRAGON CONTROL"
92 IFX=>26ANDX<=27THENPRINT"DREAM SPEECH"
94 IFX=28THENPRINT"ELASTICITY"
96 IFX=>29ANDX<=30THENPRINT"ELEMENTAL FORM"
98 IFX=>31ANDX<=32THENPRINT"ESP"
100 IFX=33THENPRINT"ETHEREALITY"
102 IFX=>34ANDX<=36THENPRINT"FIRE RESISTANCE"
104 IFX=>37ANDX<=39THENPRINT"FLYING"
106 IFX=>40ANDX<=41THENPRINT"FORTITUDE"
108 IFX=42THENPRINT"FREEDOM"
110 IFX=97THENPRINT"TREASURE FINDING"
112 IFX=>43ANDX<=45THENPRINT"GASEOUS FORM"
114 IFX=46THENPRINT"GIANT CONTROL"
116 IFX=>47ANDX<=49THENPRINT"GIANT STRENGTH"
118 IFX=>50ANDX<=51THENPRINT"GROWTH"
120 IFX=>52ANDX<=57THENPRINT"HEALING"
122 IFX=>58ANDX<=60THENPRINT"HEROISM"
124 IFX=61THENPRINT"HUMAN CONTROL"
126 IFX=>62ANDX<=64THENPRINT"INVISIBILITY"
128 IFX=>65ANDX<=66THENPRINT"INVULNERABILITY"
130 IFX=>67ANDX<=68THENPRINT"LEVITATION"
132 IFX=>69ANDX<=70THENPRINT"LONGEVITY"
134 IFX=71THENPRINT"LUCK"
136 IFX=72THENPRINT"MERGING"
138 IFX=>73ANDX<=74THENPRINT"PLANT CONTROL"
140 IFX=>75ANDX<=77THENPRINT"POISON"
142 IFX=>78ANDX<=80THENPRINT"POLYMORPH SELF"
144 IFX=>81ANDX<=82THENPRINT"SIGHT"
146 IFX=>83ANDX<=84THENPRINT"SPEECH"
148 IFX=>85ANDX<=88THENPRINT"SPEED"
150 IFX=>89ANDX<=90THENPRINT"STRENGTH"
152 IFX=>91ANDX<=93THENPRINT"SUPER-HEALING"
154 IFX=>94ANDX<=96THENPRINT"SWIMMING"
156 IFX=98THENPRINT"UNDEAD CONTROL"
158 IFX=>99ANDX<=100THENPRINT"WATER BREATHING"
160 IFI=18 THEN PRINT"PRESS ANY KEY[158]":GOSUB168
162 IFI=36 THEN PRINT"PRESS ANY KEY[158]":GOSUB168
164 NEXTI
166 GOTO172
168 GETL$:IFL$=""THEN168
170 PRINT"[147][208]OTION OF:[158]"
171 PRINT"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]":RETURN
172 PRINT"[206]EW POTIONS (Y/N)[158]"
174 GETA$:IFA$=""THEN174
176 IFA$="Y"THEN60
178 IFA$="N"THEN0
180 IFA$<>"Y"ANDA$<>"N"THEN174
182 END
184 REM *** GEMS ***
186 CLR
188 PRINT"[147][196]O YOU WANT THE GEM NAMES (Y/N)"
190 GETTY$:IFTY$=""THEN190
192 IFTY$="Y"THENGOTO200
194 IFTY$="N"THENGOTO364
196 IFTY$<>"Y"ANDTY$<>"N"THEN190
198 END
200 AA=0:BB=0:CC=0:DD=0:EE=0:FF=0:GG=0:HH=0
202 A$(1)="[193]GATE":A$(2)="[209]UARTZ":A$(3)="[212]URQUOISE"
204 B$(1)="[195]RYSTAL":B$(2)="[202]ASPER":B$(3)="[207]NYX"
206 C$(1)="[193]MBER":C$(2)="[193]METHYST":C$(3)="[195]ORAL":C$(4)="[199]RANET":C$(5)="[202]ADE"
208 D$(1)="[193]QUAMARINE":D$(2)="[208]EARL":D$(3)="[212]OPAZ":E$(1)="[195]ARBUNCLE"
210 E$(2)="[207]PAL":F$(1)="[197]MERALD":F$(2)="[210]UBY":F$(3)="[211]APPHIRE"
212 G$(1)="[196]IAMOND":G$(2)="[202]ANCINTH":H$(1)="[211]TARSTONE":H$(2)="[212]RISTAL"
214 H$(3)="[211]PECIAL"
216 R=0
218 PRINT"[147]"
220 INPUT"[200]OW MANY [199]EMS";G
222 PRINT"[147][197]XAMPLE[157][157][157][157][157][157][157]OF [199]EM        [214]ALUE"
224 PRINT"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
226 FORI=1036TO2044STEP40:POKEI,93:NEXTI
228 FORK=1TOG
230 A=INT(100*RND(TI)+1)
232 IFA<=3THENV=10:B=1
234 IFA=>4ANDA<=10THENV=50:B=2
236 IFA=>11ANDA<=25THENV=100:B=3
238 IFA=>26ANDA<=46THENV=500:B=4
240 IFA=>47ANDA<=71THENV=1000:B=5
242 IFA=>72ANDA<=90THENV=5000:B=6
244 IFA=>91ANDA<=97THENV=10000:B=7
246 IFA=>98ANDA<=100THENV=50000:B=8
248 P=R+V:R=P
250 C=INT(3*RND(TI)+1)
252 D=INT(3*RND(TI)+1)
254 E=INT(5*RND(TI)+1)
256 F=INT(3*RND(TI)+1)
258 G=INT(2*RND(TI)+1)
260 H=INT(3*RND(TI)+1)
262 I=INT(2*RND(TI)+1)
264 J=INT(3*RND(TI)+1)
266 IFB=1THENPRINTA$(C)TAB(13)"[158]"V"   [199][208]'S"
268 IFB=2THENPRINTB$(D)TAB(13)"[158]"V"   [199][208]'S"
270 IFB=3THENPRINTC$(E)TAB(13)"[158]"V"  [199][208]'S"
272 IFB=4THENPRINTD$(F)TAB(13)"[158]"V"  [199][208]'S"
274 IFB=5THENPRINTE$(G)TAB(13)"[158]"V" [199][208]'S"
276 IFB=6THENPRINTF$(H)TAB(13)"[158]"V" [199][208]'S"
278 IFB=7THENPRINTG$(I)TAB(13)"[158]"V"[199][208]'S"
280 IFB=8THENPRINTH$(J)TAB(13)"[158]"V"[199][208]'S"
282 IFK=18THENPRINT"[208]RESS A [203]EY":GOSUB352
284 IFK=35THENPRINT"[208]RESS A [203]EY":GOSUB352
286 IFK=53THENPRINT"[208]RESS A [203]EY":GOSUB352
288 IFK=71THENPRINT"[208]RESS A [203]EY":GOSUB352
290 IFK=89THENPRINT"[208]RESS A [203]EY":GOSUB352
292 IFK=107THENPRINT"[208]RESS A [203]EY":GOSUB352
294 IFK=125THENPRINT"[208]RESS A [203]EY":GOSUB352
296 IFB=1THENAA=AA+1
298 IFB=2THENBB=BB+1
300 IFB=3THENCC=CC+1
302 IFB=4THENDD=DD+1
304 IFB=5THENEE=EE+1
306 IFB=6THENFF=FF+1
308 IFB=7THENGG=GG+1
310 IFB=8THENHH=HH+1
312 NEXTK
314 PRINT"[208]RESS A [203]EY"
316 GETL$:IFL$=""THEN316
318 PRINT"[147][197]XAMPLE OF [199]EM       [214]ALUE"
320 PRINT"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
322 PRINT"[212]OTAL [214]ALUE OF [199]EMS="R"[199][208]"
324 PRINT"10 [199]EMS";AA
326 PRINT"50 [199]EMS";BB
328 PRINT"100 [199]EMS";CC
330 PRINT"500 [199]EMS";DD
332 PRINT"1000 [199]EMS";EE
334 PRINT"5000 [199]EMS";FF
336 PRINT"10000 [199]EMS";GG
338 PRINT"50000 [199]EMS";HH
340 PRINT"[206]EW [199]EMS ([217]/[206])"
342 GETA$:IFA$=""THEN342
344 IFA$="Y"THEN186
346 IFA$="N"THENGOTO0
348 IFA$<>"Y"ANDA$<>"N"THEN342
350 END
352 REM
354 GETL$:IFL$=""THEN354
356 PRINT"[147][197]XAMPLE[157][157][157][157][157][157][157]OF [199]EM        [214]ALUE"
358 PRINT"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
360 FORI=1036TO2044STEP40:POKEI,93:NEXTI
362 RETURN
364 PRINT"[147]":XX=1
366 INPUT"[200]OW MANY [199]EMS";G
368 PRINT"[147][208]LEASE WAIT, COUNTING"
370 FORK=1TOG
372 A=INT(100*RND(TI)+1)
374 IFA<=3THENV=10:B=1
376 IFA=>4ANDA<=10THENV=50:B=2
378 IFA=>11ANDA<=25THENV=100:B=3
380 IFA=>26ANDA<=46THENV=500:B=4
382 IFA=>47ANDA<=71THENV=1000:B=5
384 IFA=>72ANDA<=90THENV=5000:B=6
386 IFA=>91ANDA<=97THENV=10000:B=7
388 IFA=>98ANDA<=100THENV=50000:B=8
390 P=R+V:R=P
392 IFB=1THENAA=AA+1
394 IFB=2THENBB=BB+1
396 IFB=3THENCC=CC+1
398 IFB=4THENDD=DD+1
400 IFB=5THENEE=EE+1
402 IFB=6THENFF=FF+1
404 IFB=7THENGG=GG+1
406 IFB=8THENHH=HH+1
408 NEXT
410 GOTO318
412 REM *** ARMOR ***
414 CLR
416 REM *** SIZE ***
418 PRINT"[147]"
420 PRINT"[193]RMOR [211]IZE:";
422 GOSUB572
424 IFA<=68THENPRINT"[200]UMAN"
426 IFA=>69ANDA<=81THENPRINT"[196]WARF"
428 IFA=>82ANDA<=91THENPRINT"[197]LF"
430 IFA=>92ANDA<=98THENPRINT"[200]ALFLING"
432 IFA=>99ANDA<=100THENPRINT"[199]IANT"
434 REM *** TYPE ***
436 PRINT"[212]YPE:";
438 GOSUB572
440 IFA<=10THENPRINT"LEATHER";:GOSUB462:GOTO536
442 IFA=>11ANDA<=17THENPRINT"SCALE MAIL";:GOSUB480:GOTO536
444 IFA=>18ANDA<=30THENPRINT"CHAIN MAIL";:GOSUB480:GOTO536
446 IFA=>31ANDA<=39THENPRINT"BANDED MAIL";:GOSUB498:GOTO536
448 IFA=>40ANDA<=50THENPRINT"PLATE MAIL";:GOSUB498:GOTO536
450 IFA=>51ANDA<=75THENPRINT"SHIELD";:GOSUB516:GOTO536
452 IFA=>76ANDA<=77THENPRINT"SCALE MAIL";:GOSUB480:PRINT" & SHIELD";:GOSUB516:GOTO536
454 IFA=>78ANDA<=85THENPRINT"CHAIN MAIL";:GOSUB480:PRINT" & SHIELD";:GOSUB516:GOTO536
456 IFA=>86ANDA<=90THENPRINT"BANDED MAIL";:GOSUB498:PRINT" & SHIELD";:GOSUB516:GOTO536
458 IFA=>91ANDA<=100THENPRINT"PLATE MAIL";:GOSUB498:PRINT" & SHIELD";:GOSUB516:GOTO536
460 END
462 REM *** LEATHER ***
464 GOSUB572
466 IFA<=70THENPRINT"+1";:CS=10
468 IFA=>71ANDA<=88THENPRINT"+2";:C=15
470 IFA=>89ANDA<=96THENPRINT"+3";:C=20
472 IFA=>97ANDA<=99THENPRINT"+4";:C=25
474 IFA=100THENPRINT"+5";:C=30
476 RETURN
478 END
480 REM *** SCALE AND CHAIN ***
482 GOSUB572
484 IFA<=60THENPRINT"+1":CS=10
486 IFA=>61ANDA<=81THENPRINT"+2";:CS=15
488 IFA=>82ANDA<=92THENPRINT"+3";:CS=20
490 IFA=>93ANDA<=98THENPRINT"+4";:CS=25
492 IFA=>99ANDA<=100THENPRINT"+5";:CS=30
494 RETURN
496 END
498 REM *** BANDED AND PLATE ***
500 GOSUB572
502 IFA<=50THENPRINT"+1";:CS=10
504 IFA=>51ANDA<=74THENPRINT"+2";:CS=15
506 IFA=>75ANDA<=88THENPRINT"+3";:CS=20
508 IFA=>89ANDA<=96THENPRINT"+4";:CS=25
510 IFA=>97ANDA<=100THENPRINT"+5";:CS=30
512 RETURN
514 END
516 REM *** SHIELD ***
518 GOSUB572
520 IFA<=40THENPRINT"+1";:CS=10
522 IFA=>41ANDA<=67THENPRINT"+2";:CS=15
524 IFA=>68ANDA<=84THENPRINT"+3";:CS=20
526 IFA=>85ANDA<=94THENPRINT"+4";:CS=25
528 IFA=>95ANDA<=100THENPRINT"+5";:CS=30
530 RETURN
532 END
534 REM ** SPECIAL ARMOR OR SHIELD **
536 GOSUB572:IFA>CSTHENGOTO564
538 GOSUB572
540 IFA<=7THENPRINT" + ABSORPTION"
542 IFA=>8ANDA<=17THENPRINT" + CHARM"
544 IFA=>18ANDA<=32THENPRINT" + CURE WOUNDS"
546 IFA=>33ANDA<=42THENPRINT" + ELECTRICITY"
548 IFA=>43ANDA<=47THENPRINT" + ENERGY DRAIN"
550 IFA=>48ANDA<=50THENPRINT" + ETHEREALITY"
552 IFA=>51ANDA<=60THENPRINT" + FLY"
554 IFA=>61ANDA<=66THENPRINT" + GASEOUS FORM"
556 IFA=>67ANDA<=75THENPRINT" + HASTE"
558 IFA=>76ANDA<=85THENPRINT" + INVISIBILITY"
560 IFA=>86ANDA<=93THENPRINT" + REFLECTION"
562 IFA=>94ANDA<=100THENPRINT" + REMOVE CURSE"
564 GETX$:IFX$=""THEN564
566 IFX$=CHR$(32)THENGOTO414
568 IFX$=CHR$(13)THENGOTO0
570 IFX$<>CHR$(32)ANDX$<>CHR$(13)THEN564
572 A=INT(100*RND(TI)+1):RETURN
574 POKE53281,5:POKE53280,5:PRINT""
576 PRINT"[147]":CLR
578 REM *** SWORD TYPE ***
580 X=INT(100*RND(TI)+1)
582 IFX<=65THENA$="C":PRINT"[206]ORMAL SWORD";
584 IFX=>66ANDX<=84THENA$="C":PRINT"[211]HORT SWORD";
586 IFX=>85ANDX<=92THENA$="D":PRINT"[212]WO-HANDED SWORD";
588 IFX=>93ANDX<=100THENA$="D":PRINT"[194]ASTARD SWORD";
590 REM *** STRENGTH ***
592 IFA$="C"THEN596
594 IFA$="D"THEN610
596 A=INT(100*RND(TI)+1)
598 IFA<=60THENCB=40:PRINT"+1";
600 IFA=>61ANDA<=81THENCB=30:PRINT"+2";
602 IFA=>82ANDA<=92THENCB=25:PRINT"+3";
604 IFA=>93ANDA<=98THENCB=20:PRINT"+4";
606 IFA=>99ANDA<=100THENCB=15:PRINT"+5";
608 GOTO622
610 IFA<=70THENCB=40:PRINT"+1";
612 IFA=>71ANDA<=88THENCB=30:PRINT"+2";
614 IFA=>89ANDA<=96THENCB=25:PRINT"+3";
616 IFA=>97ANDA<=99THENCB=20:PRINT"+4";
618 IFA=100THENCB=15:PRINT"+5";
620 GOTO622
622 REM *** BONUSES ***
624 F=INT(100*RND(TI)+1)
626 IFF>CBTHEN726
628 IFF<CBTHEN632
630 REM *********
632 S=INT(100*RND(TI)+1)
634 IFS<=29THENPRINT"+1 VS.";
636 IFS=>30ANDS<=50THENPRINT"+2 VS.";
638 IFS=>51ANDS<=64THENPRINT"+3 VS.";
640 IFS=>65ANDS<=72THENPRINT"+4 VS.";
642 IFS=>73ANDS<=75THENPRINT"+5 VS.";
644 IFS=>76ANDS<=100THENPRINT" + ";:GOTO680
646 REM *** OPPONENTS ***
648 I=INT(100*RND(TI)+1)
650 IFI<=6THENPRINT"[194]UGS"
652 IFI=>7ANDI<=9THENPRINT"[195]ONSTRUCTS"
654 IFI=>10ANDI<=15THENPRINT"[196]RAGONS"
656 IFI=>16ANDI<=24THENPRINT"[197]NCHANTED MONSTERS"
658 IFI=>25ANDI<=36THENPRINT"[199]IANTS"
660 IFI=>37ANDI<=48THENPRINT"[204]YCANTHROPES"
662 IFI=>49ANDI<=52THENPRINT"[207]THER-PLANAR CREATURES"
664 IFI=>53ANDI<=58THENPRINT"[210]EGENERATING [195]REATURES"
666 IFI=>59ANDI<=67THENPRINT"[210]EPTILES (AND [196]INOSAURS)"
668 IFI=>68ANDI<=70THENPRINT"[211]PELL [201]MMUNE CREATURES"
670 IFI=>71ANDI<=76THENPRINT"[211]PELL [213]SERS"
672 IFI=>77ANDI<=88THENPRINT"[213]NDEAD"
674 IFI=>89ANDI<=94THENPRINT"[215]ATER-[194]REATHING [195]REATURES"
676 IFI=>95ANDI<=100THENPRINT"[215]EAPON-[213]SING [195]REATURES"
678 GOTO726
680 REM *** TALENT ***
682 P=INT(100*RND(TI)+1)
684 IFP<=5THENPRINT"[194]REATHING"
686 IFP=>6ANDP<=12THENPRINT"[195]HARMING"
688 IFP=>13ANDP<=16THENPRINT"[196]ECEIVING"
690 IFP=>17ANDP<=23THENPRINT"[196]EFENDING"
692 IFP=>24ANDP<=25THENPRINT"[196]EFLECTOR"
694 IFP=>26ANDP<=27THENPRINT"[196]RAINING"
696 IFP=>28ANDP<=32THENPRINT"[197]XTINGUISHING"
698 IFP=>33ANDP<=38THENPRINT"[198]INDING"
700 IFP=>39ANDP<=43THENPRINT"[198]LAMING"
702 IFP=>44ANDP<=46THENPRINT"[198]LYING"
704 IFP=>47ANDP<=54THENPRINT"[200]EALING"
706 IFP=>55ANDP<=59THENPRINT"[200]IDING"
708 IFP=>60ANDP<=65THENPRINT"[200]OLDING"
710 IFP=>66ANDP<=73THENPRINT"[204]IGHTNING"
712 IFP=>74ANDP<=79THENPRINT"[211]ILENCING"
714 IFP=>80ANDP<=81THENPRINT"[211]LICING"
716 IFP=>82ANDP<=85THENPRINT"[211]LOWING"
718 IFP=>86ANDP<=89THENPRINT"[211]PEEDING"
720 IFP=>90ANDP<=94THENPRINT"[212]RANSLATING"
722 IFP=>95ANDP<=99THENPRINT"[215]ATCHING"
724 IFP=100THENPRINT"[215]ISHING"
726 REM *** INTELLIGENCE ***
728 PRINT:
730 O=INT(100*RND(TI)+1)
732 IFO<=79THENIN=0:CO=0:PO=0:LA=0:PRINT"[201]T'S [206]ON-[201]NTELLIGENT":GOTO908
734 IFO=>80ANDO<=85THENIN=7:CO=1:PO=1:LA=0:GOTO746
736 IFO=>86ANDO<=90THENIN=8:CO=1:PO=2:LA=0:GOTO746
738 IFO=>91ANDO<=94THENIN=9:CO=1:PO=3:LA=0:GOTO746
740 IFO=>95ANDO<=97THENIN=10:CO=2:PO=3:LA=(INT(3*RND(TI)+1)):GOTO746
742 IFO=>98ANDO<=99THENIN=11:CO=2:PO=3:RM=1:LA=(INT(6*RND(TI)+1)):GOTO746
744 IFO=100THENIN=12:CO=2:PO=3:RM=1:EX=1:RO=1:LA=(INT(7*RND(TI)+2)):GOTO746
746 REM
748 IFIN>0THENPRINT"[144][201]T'S [201]NTELLIGENT:"
750 PRINT"[201]T [195]AN:"
752 FORN=1TOPO
754 Y=INT(100*RND(TI)+1)
756 IFY<=10THENPRINT"[196]ETECT [197]VIL([199]OOD)"
758 IFY=>11ANDY<=15THENPRINT"[196]ETECT [199]EMS"
760 IFY=>16ANDY<=25THENPRINT"[196]ETECT [205]AGIC"
762 IFY=>26ANDY<=35THENPRINT"[196]ETECT [205]ETAL"
764 IFY=>36ANDY<=50THENPRINT"[196]ETECT [211]HIFTING [215]ALLS AND [210]OOMS"
766 IFY=>51ANDY<=65THENPRINT"[196]ETECT [211]LOPING [208]ASSAGES"
768 IFY=>66ANDY<=75THENPRINT"[198]IND [211]ECRET [196]OORS"
770 IFY=>76ANDY<=85THENPRINT"[198]IND [212]RAPS"
772 IFY=>86ANDY<=95THENPRINT"[211]EE [201]NVISIBLE"
774 IFY=>96ANDY<=99THENEX=1
776 IFY=100THENPO=2
778 NEXTN
780 IFRM=1THENPRINT"[210]EAD [205]AGIC"
782 REM *** EXTRAORDINARY POWERS ***
784 IFEX<>1THEN828
786 PRINT"[197]XTRAORDINARY [208]OWERS:"
788 FORI=1TORO
790 RO=RO-1
792 X=INT(100*RND(TI)+1)
794 IFX<=10THENPRINT"[195]LAIRAUDIENCE"
796 IFX=>11ANDX<=20THENPRINT"[195]LAIRVOYANCE"
798 IFX=>21ANDX<=30THENPRINT"[197][211][208]"
800 IFX=>31ANDX<=35THENPRINT"[197]XTRA [196]AMAGE"
802 IFX=>36ANDX<=40THENPRINT"[198]LYING"
804 IFX=>41ANDX<=45THENPRINT"[200]EALING"
806 IFX=>46ANDX<=54THENPRINT"[201]LLUSION"
808 IFX=>55ANDX<=59THENPRINT"[204]EVITATION"
810 IFX=>60ANDX<=69THENPRINT"[212]ELEKINESIS"
812 IFX=>70ANDX<=79THENPRINT"[212]ELEPATHY"
814 IFX=>80ANDX<=88THENPRINT"[212]ELEPORTATION"
816 IFX=>89ANDX<=97THENPRINT"[216]-[210]AY [214]ISION"
818 IFX=>98ANDX<=99THENRO=2
820 IFX=100THENRO=3
822 REM *** EXTRA ROLLS ***
824 NEXT
826 IFRO>0THEN788
828 REM
830 REM
832 REM *** INT.CONT. ***
834 Q=INT(20*RND(TI)+1)
836 PRINT"[211]WORD IS ";
838 IFQ<=13THENPRINT"[204]AWFUL"
840 IFQ=>14ANDQ<=18THENPRINT"[206]EUTRAL"
842 IFQ=>19ANDQ<=20THENPRINT"[195]HAOTIC"
844 REM *** MORE INTELLIGENCE ***
846 PRINT"[211]WORDS [201]NTELLIGENCE [211]CORE [201]S";IN
848 PRINT"[211]WORD [195]OMMUNICATES [194]Y ";
850 IFCO=1THENPRINT"[197]MPATHY"
852 IFCO=2THENPRINT"[211]PEECH"
854 REM *** LANGUAGES ***
856 IFLA=0THENGOTO908
858 PRINT"[204]ANGUANGES:"
860 FORI=1TOLA
862 R=INT(20*RND(TI)+1)
864 IFR=RTHENLA=LA+1
866 IFR=1THENPRINT"[194]UGBEAR"
868 IFR=2THENPRINT"[196]OPPLEGANGER"
870 IFR=3THENPRINT"[196]RAGON"
872 IFR=4THENPRINT"[196]WARF"
874 IFR=5THENPRINT"[197]LF"
876 IFR=6THENPRINT"[199]ARGOYLE"
878 IFR=7THENPRINT"[199]NOLL"
880 IFR=8THENPRINT"[199]NOME"
882 IFR=9THENPRINT"[199]OBLIN"
884 IFR=10THENPRINT"[200]ALFLING"
886 IFR=11THENPRINT"[200]ARPY"
888 IFR=12THENPRINT"[200]OBGOBLIN"
890 IFR=13THENPRINT"[203]OBOLD"
892 IFR=14THENPRINT"[204]IZARD MAN"
894 IFR=15THENPRINT"[205]EDUSA"
896 IFR=16THENPRINT"[205]INOTAUR"
898 IFR=17THENPRINT"[207]GRE OR [199]IANT"
900 IFR=18THENPRINT"[207]RC"
902 IFR=19THENPRINT"[208]IXIE"
904 IFR=20THENPRINT"[207]THER [200]UMAN [212]ONGUE"
906 NEXT
908 GETX$:IFX$=""THEN908
910 IFX$=CHR$(32)THEN576
912 IFX$=CHR$(13)THEN0
914 IFX$<>CHR$(13)ANDX$<>CHR$(32)THEN908
916 PRINT"[147][196]O YOU WANT JEWELRY NAMES (Y/N)"
918 GETO$:IFO$=""THEN918
920 IFO$="Y"THEN926
922 IFO$="N"THEN1112
924 IFO$<>"Y"ANDO$<>"N"THEN918
926 CLR:PRINT"[147]"
928 A$(1)="[193]NKLET":A$(2)="[194]EADS":A$(3)="[194]RACELET":A$(4)="[194]ROOCH":A$(5)="[194]UCKLE"
930 A$(6)="[195]AMEO":A$(7)="[195]HAIN":A$(8)="[195]LASP":A$(9)="[204]OCKET":A$(10)="[208]IN"
932 B$(1)="[193]RMBAND":B$(2)="[194]ELT":B$(3)="[195]OLLAR":B$(4)="[197]ARRING"
934 B$(5)="4-LEAF CLOVER":B$(6)="[200]EART":B$(7)="[204]EAF":B$(8)="[206]ECKLACE"
936 B$(9)="[208]ENDANT":B$(10)="[210]ABBIT'S FOOT"
938 C$(1)="[193]MULET":C$(2)="[195]ROWN":C$(3)="[196]IADEM":C$(4)="[205]EDALLION"
940 C$(5)="[207]RB":C$(6)="[210]ING":C$(7)="[211]CARAB":C$(8)="[211]CEPTER"
942 C$(9)="[212]ALISMAN":C$(10)="[212]IARA"
944 INPUT"[200]OW MANY JEWELRY";J
946 PRINT"[147][212]YPE OF[157][157][157][157][157][157][157]JEWELRY        [214]ALUE (IN [199][208])"
948 FORI=0TO39:PRINT"[183]";:NEXT:PRINT""
949 FORI=1037TO2044STEP40:POKEI,93:NEXTI
950 PRINT""
952 FORI=1TOJ
954 X=INT(100*RND(TI)+1)
956 IFX=1THENV=100:A=1
958 IFX=>2ANDX<=3THENV=500:A=1
960 IFX=>4ANDX<=6THENV=1000:A=1
962 IFX=>7ANDX<=10THENV=1500:A=1
964 IFX=>11ANDX<=16THENV=2000:A=1
966 IFX=>17ANDX<=24THENV=2500:A=1
968 IFX=>25ANDX<=34THENV=3000:A=1
970 IFX=>35ANDX<=45THENV=4000:A=2
972 IFX=>46ANDX<=58THENV=5000:A=2
974 IFX=>59ANDX<=69THENV=7500:A=2
976 IFX=>70ANDX<=78THENV=10000:A=2
978 IFX=>79ANDX<=85THENV=15000:A=3
980 IFX=>86ANDX<=90THENV=20000:A=3
982 IFX=>91ANDX<=94THENV=25000:A=3
984 IFX=>95ANDX<=97THENV=30000:A=3
986 IFX=>98ANDX<=99THENV=40000:A=3
988 IFX=100THENV=50000:A=3
990 S=Z+V:Z=S
992 Y=INT(10*RND(TI)+1)
994 IFA=1THENPRINTA$(Y)TAB(14)V
996 IFA=2THENPRINTB$(Y)TAB(14)V
998 IFA=3THENPRINTC$(Y)TAB(14)V
1000 IFV=100THENAA=AA+1
1002 IFV=500THENBB=BB+1
1004 IFV=1000THENCC=CC+1
1006 IFV=1500THENDD=DD+1
1008 IFV=2000THENEE=EE+1
1010 IFV=2500THENFF=FF+1
1012 IFV=3000THENGG=GG+1
1014 IFV=4000THENHH=HH+1
1016 IFV=5000THENII=II+1
1018 IFV=7500THENJJ=JJ+1
1020 IFV=10000THENKK=KK+1
1022 IFV=15000THENLL=LL+1
1024 IFV=20000THENMM=MM+1
1026 IFV=25000THENNN=NN+1
1028 IFV=30000THENOO=OO+1
1030 IFV=40000THENPP=PP+1
1032 IFV=50000THENQQ=QQ+1
1034 IFI=18THENPRINT"[208]RESS A KEY":GOSUB1102
1036 IFI=36THENPRINT"[208]RESS A KEY":GOSUB1102
1038 IFI=54THENPRINT"[208]RESS A KEY":GOSUB1102
1040 IFI=72THENPRINT"[208]RESS A KEY":GOSUB1102
1042 IFI=90THENPRINT"[208]RESS A KEY":GOSUB1102
1044 NEXTI
1046 PRINT"[208]RESS A KEY"
1048 GETY$:IFY$=""THEN1048
1050 PRINT"[147][212]YPE OF[157][157][157][157][157][157][157]JEWELRY        [214]ALUE (IN [199][208])"
1052 FORW=0TO39:PRINT"[183]";:NEXTW
1054 PRINT""
1056 PRINT"[212]OTAL VALUE OF JEWELRY =";Z
1058 PRINT"[202]EWELRY VALUE 100";AA
1060 PRINT"[202]EWELRY VALUE 500";BB
1062 PRINT"[202]EWELRY VALUE 1000";CC
1064 PRINT"[202]EWELRY VALUE 1500";DD
1066 PRINT"[202]EWELRY VALUE 2000";EE
1068 PRINT"[202]EWELRY VALUE 2500";FF
1070 PRINT"[202]EWELRY VALUE 3000";GG
1072 PRINT"[202]EWELRY VALUE 4000";HH
1074 PRINT"[202]EWELRY VALUE 5000";II
1076 PRINT"[202]EWELRY VALUE 7500";JJ
1078 PRINT"[202]EWELRY VALUE 10000";KK
1080 PRINT"[202]EWELRY VALUE 15000";LL
1082 PRINT"[202]EWELRY VALUE 20000";MM
1084 PRINT"[202]EWELRY VALUE 25000";NN
1086 PRINT"[202]EWELRY VALUE 30000";OO
1088 PRINT"[202]EWELRY VALUE 40000";PP
1090 PRINT"[202]EWELRY VALUE 50000";QQ
1092 PRINT"[206]EW JEWELRYS (Y/N)"
1094 GETI$:IFI$=""THEN1094
1096 IFI$="Y"THEN916
1098 IFI$="N"THEN0
1100 IFI$<>"Y"ANDI$<>"N"THEN1094
1102 GETX$:IFX$=""THEN1102
1104 PRINT"[147][212]YPE OF[157][157][157][157][157][157][157]JEWELRY        [214]ALUE (IN [199][208])"
1105 FORR=0TO39:PRINT"[183]";:NEXTR
1106 FORD=1037TO2044STEP40:POKED,93:NEXTD
1108 PRINT""
1110 RETURN
1112 CLR:INPUT"[147][200]OW MANY JEWELRY";J
1114 PRINT"[147][208]LEASE WAIT, COUNTING"
1116 FORI=1TOJ
1118 X=INT(100*RND(TI)+1)
1120 IFX=1THENV=100
1122 IFX=>2ANDX<=3THENV=500
1124 IFX=>4ANDX<=6THENV=1000
1126 IFX=>7ANDX<=10THENV=1500
1128 IFX=>11ANDX<=16THENV=2000
1130 IFX=>17ANDX<=24THENV=2500
1132 IFX=>25ANDX<=34THENV=3000
1134 IFX=>35ANDX<=45THENV=4000
1136 IFX=>46ANDX<=58THENV=5000
1138 IFX=>59ANDX<=69THENV=7500
1140 IFX=>70ANDX<=78THENV=10000
1142 IFX=>79ANDX<=85THENV=15000
1144 IFX=>86ANDX<=90THENV=20000
1146 IFX=>91ANDX<=94THENV=25000
1148 IFX=>95ANDX<=97THENV=30000
1150 IFX=>98ANDX<=99THENV=40000
1152 IFX=100THENV=50000
1154 S=Z+V:Z=S
1156 IFV=100THENAA=AA+1
1158 IFV=500THENBB=BB+1
1160 IFV=1000THENCC=CC+1
1162 IFV=1500THENDD=DD+1
1164 IFV=2000THENEE=EE+1
1166 IFV=2500THENFF=FF+1
1168 IFV=3000THENGG=GG+1
1170 IFV=4000THENHH=HH+1
1172 IFV=5000THENII=II+1
1174 IFV=7500THENJJ=JJ+1
1176 IFV=10000THENKK=KK+1
1178 IFV=15000THENLL=LL+1
1180 IFV=20000THENMM=MM+1
1182 IFV=25000THENNN=NN+1
1184 IFV=30000THENOO=OO+1
1186 IFV=40000THENPP=PP+1
1188 IFV=50000THENQQ=QQ+1
1190 NEXTI
1192 GOTO1050
1194 PRINT"[147]":CLR
1196 INPUT"[205]ONSTERS [200]IT [196]ICE";H
1198 T=0
1200 FORI=1TOH:X=INT(8*RND(TI)+1):PRINT"[158]"X;:A=T+X:T=A:NEXTI
1202 POKE782,0
1204 POKE781,19
1206 SYS65520
1208 PRINT"[144][212]OTAL:";T
1210 PRINT"[153][206]EW [200]IT [196]ICE (Y/N)"
1212 GETA$:IFA$=""THEN1212
1214 IFA$="Y"THEN1194
1216 IFA$="N"THEN0
1218 IFA$<>"Y"ANDA$<>"N"THEN1212
1220 PRINT"[147]"
1222 PRINT"L[207]"CHR$(34)" TREASURES2"CHR$(34)",8,1[145][145][145][145]":GOSUB1224:STOP
1224 POKE198,7:POKE631,13:POKE632,147:POKE633,82:POKE634,117:POKE635,9:POKE636,31:POKE637,13:RETURN
1226 REM ** D.ROBBINS **
1228 PRINT"[147]"
1229 PRINT"[147][150][205]ENU 2"
1230 POKE53280,2:POKE53281,2:PRINT"    [196][213][206][199][197][207][206][211]   "
1232 PRINT"     &"
1234 PRINT"       [196][210][193][199][207][206][211]    "
1236 PRINT"[150]  [194]Y FANATIC [196]&[196] FAN  [196].[210]OBBINS"
1238 PRINT"[150][201]MPROVMENTS BY [212]HE [194]ALRON"
1240 PRINT"       1. [215]EAPONS"
1242 PRINT"       2. [193]RMOURY"
1244 PRINT"       3. [205]ONSTERS [200]IT [196]ICE"
1246 PRINT"       4. [197]XPERIENCE COUNTING"
1248 PRINT"       5. [207]THER NOTES"
1250 PRINT"       6. [205]ENU 3"
1251 SYS49152
1252 GETA$:IFA$=""THEN1252
1254 IFA$="1"THENGOSUB1270:GOTO1228
1256 IFA$="2"THENGOSUB1444:GOTO1228
1258 IFA$="3"THENGOTO1482
1260 IFA$="4"THENGOSUB1514:GOTO1228
1262 IFA$="5"THENGOSUB1558:GOTO1228
1264 IFA$="6"THENGOTO5000
1266 IFA$<>"1"ANDA$<>"2"ANDA$<>"3"ANDA$<>"4"ANDA$<>"5"ANDA$<>"6"THEN1252
1268 END
1270 PRINT"[147]1.[211]WORDS"
1272 PRINT"2.[194]OWS"
1274 PRINT"3.[193]XES"
1276 PRINT"4.[196]AGGERS"
1278 PRINT"5.[207]THER [215]EAPONS"
1280 PRINT"6.[206]EW [215]EAPONS"
1282 PRINT"7.[194]ACK TO [205]AIN [205]ENU"
1284 GETS$:IFS$=""THEN1284
1286 IFS$="1"THENGOSUB1302:GOTO1270
1288 IFS$="2"THENGOSUB1320:GOTO1270
1290 IFS$="3"THENGOSUB1340:GOTO1270
1292 IFS$="4"THENGOSUB1352:GOTO1270
1294 IFS$="5"THENGOSUB1362:GOTO1270
1296 IFS$="6"THENGOSUB1380:GOTO1270
1298 IFS$="7"THENGOTO1228
1300 RETURN
1302 PRINT"[147]1.[211][215][207][210][196][211]          "
1304 PRINT"[211]HORT SWORD       1D6    COST:7 GP"
1306 PRINT"[206]ORMAL SWORD     1D8    COST:10 GP"
1308 PRINT"[212]WO-[200]ANDED [211]WORD  1D10   COST:15 GP"
1310 PRINT"[194]ASTARD [211]WORD     1D8+1  COST:15 GP"
1312 PRINT"([200]ALFLING MAY USE, TWO-HANDED, NOT "
1314 PRINT"LOSE INITIATIVE)
1316 [161]A$:[139]A$[178]""[167]1316
1318 [142]
1320 [153]"LOAD2.PEEK(null)(null)(null)"
1322 [153]"LENROSSBOW LT.        1D6   COST:30 GP"
1324 [153]"LENROSSBOW HV.        2D4   COST:50 GP"
1326 [153]"LENASE,30 QRLS             COST:10 GP"
1328 [153]"(null)ONG PEEKOW            1D6   COST:40 GP"
1330 [153]"(null)HORT PEEKOW           1D6   COST:25 GP"
1332 [153]"(null)UIVER,20 ARROWS         COST:5  GP"
1334 [153]"1 (null)ILVER ATNRROW           COST:5  GP"
1336 [161]A$:[139]A$[178]""[167]1336
1338 [142]
1340 [153]"LOAD3.ATN(null)VAL(null)"
1342 [153]"PEEKATTLE ATNXE (TWO-H)  1D8   COST:7  GP"
1344 [153]"LEFT$AND ATNXE            1D6   COST:5  GP"
1346 [153]"LEFT$EAVY PEEKATTLE ATNXE    1D10  COST:15 GP"
1348 [161]A$:[139]A$[178]""[167]1348
1350 [142]
1352 [153]"LOAD4.STR$ATNCHR$CHR$VAL(null)(null)"
1354 [153]"(null)ORMAL STR$AGGER      1D4   COST:3  GP"
1356 [153]"(null)ILVER STR$AGGER      1D4   COST:30 GP"
1358 [161]A$:[139]A$[178]""[167]1358:
1360 [142]
1362 [153]"LOAD5.(null)(null)LEFT$VAL(null)CLOSE(null)VALATN(null)(null)(null)(null)"
1364 [153]"*(null)ACE              1D4   COST:5  GP"
1366 [153]"*LENLUB              1D4   COST:3  GP"
1368 [153]"(null)OLE ATNRM (TWO-H)   1D10  COST:7  GP"
1370 [153]"*(null)LING, 30 (null)TONES  1D4   COST:2  GP"
1372 [153]"(null)PEAR              1D6   COST:3  GP"
1374 [153]"*(null)AR LEFT$AMMER        1D6   COST:5  GP* LENLERIC MAY USE"
1376 [161]A$:[139]A$[178]""[167]1376
1378 [142]
1380 [153]"LOAD6.(null)VAL(null) (null)VALATN(null)(null)(null)(null)"
1382 [153]"PEEKLOWGUN  COST:3GP POISON   10/20/30'"
1384 [153]"PEEKOLA      COST:5GP 1-2+ENT  20/40/60'"
1386 [153]"PEEKLACJACK  COST:5GP 1-2 + SPECIAL"
1388 [153]"(null)ET       COST:1SP ENTANGLE10/20/30'"
1390 [153]"(null)RIDENT   COST:5GP 1D6      10/20/30'"
1392 [153]"(null)HIP      COST:1GP 1-2 OR ENT (5-30')
1394 PRINT"[204]VL,[200][196] [194]ON  [194]LACKJACK  [194]OL,[206],[215]H  [194]LOWG"
1396 PRINT"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
1398 PRINT"1       -   [203]NOCKOUT   [197]NTANGLE  [196]EATH"
1400 PRINT"2-3    +1   [203]NOCKOUT   [197]NTANGLE  *    "
1402 PRINT"4-6    +2     [211]TUN     [211]LOW      **   "
1404 PRINT"7-9   +3     [211]TUN     [211]LOW     50% HP"
1406 PRINT"10-12  +4    [196]ELAY     [196]ELAY    25% HP"
1408 PRINT"12-    +5    [196]ELAY     [196]ELAY    25% HP"
1410 PRINT"*  75% HP + PARALYSIS"
1412 PRINT"** 50% HP + PARALYSIS"
1414 GETA$:IFA$=""THEN1414
1416 PRINT"[147][203][206][207][195][203][207][213][212]: UNCONSIOUS AND HELPLESS FOR"
1418 PRINT"1-100 (D%) ROUNDS."
1420 PRINT"[211][212][213][206]: MOVE 1/3 NORMAL,SEE [211][197][212] 3  P.[196]3."
1422 PRINT"[196][197][204][193][217]: LOSES [201]NIT.ON THE NEXT ROUND."
1424 PRINT"[196][197][193][212][200]: [200]IT [208]OINTS REDUCED TO 0."
1426 PRINT"[208][193][210][193][204][217][211][201][211]: HELPLESS FOR 1-6 TURNS."
1428 PRINT"% OF HIT POINTS: LOSES % OF ORIGINAL"
1430 PRINT"(FULLY HEALED) HIT POINTS."
1432 PRINT"[197][206][212][193][206][199][204][197]: CANNOT ATTACK, CAST OR MOVE"
1434 PRINT"UNTIL A [211]AVING [212]HROW IS SUCCESSFUL."
1436 PRINT"[211][204][207][215]: MOVING AND ATTACKING AT 1/2 RATE"
1438 PRINT"[206]O SPELLS CAN BE CAST."
1440 GETA$:IFA$=""THEN1440
1442 RETURN
1444 PRINT"[147][204][197][193][212][200][197][210][160][193][210][205][207][210]   [193][195] 7    COST:20  GP"
1446 PRINT"[211][195][193][204][197][160][205][193][201][204]      [193][195] 6    COST:30  GP"
1448 PRINT"[195][200][193][201][206][160][205][193][201][204]      [193][195] 5    COST:40  GP"
1450 PRINT"[194][193][206][196][197][196] [205][193][201][204]     [193][195] 4    COST:50  GP"
1452 PRINT"[208][204][193][212][197][160][205][193][201][204]      [193][195] 3    COST:60  GP"
1454 PRINT"[202][207][213][211][212][160][193][210][205][207][210]     [193][195] 0    COST:70  GP"
1456 PRINT"[211][200][201][197][204][196]          [193][195] -1   COST:10  GP"
1458 PRINT"[198]OR [211]PECIAL SEE [211][197][212] 3, P.[196]46"
1460 GETA$:IFA$=""THEN1460
1462 PRINT"[147][200][207][210][211][197][160][193][210][205][207][210] ([194][193][210][196][201][206][199])"
1464 PRINT"[204]EATHER   [193][195] 7    40 GP    250 CN"
1466 PRINT"[211]CALE     [193][195] 6    75 GP    400 CN"
1468 PRINT"[195]HAIN     [193][195] 5   150 GP    600 CN"
1470 PRINT"[194]ANDED    [193][195] 4   400 GP   1500 CN"
1472 PRINT"[208]LATE     [193][195] 3   500 GP   3000 CN"
1474 PRINT"[198]IELD     [193][195] 2   600 GP   4000 CN"
1476 PRINT"[202]OUST     [193][195] 0   700 GP   5000 CN"
1478 GETA$:IFA$=""THEN1478
1480 RETURN
1482 PRINT"[147]":CLR
1484 INPUT"[205]ONSTER'S [200]IT [196]ICE:";H
1486 T=0
1488 FORK=1TOH
1490 X=(INT(8*RND(TI)+1))
1492 PRINT"[158]"X;
1494 A=T+X:T=A
1496 NEXT
1498 PRINT
1500 PRINT"[144][212]OTAL:";"[158]"T""
1502 PRINT"[206]EW [200][196] ? ([217]/[206])"
1504 GETA$:IFA$=""THEN1504
1506 IFA$="Y"THENGOTO1482
1508 IFA$="N"THEN1512
1510 IFA$<>"Y"ANDA$<>"N"THEN1504
1512 GOTO1228
1514 PRINT"[147]"
1516 PRINT" [197][216][208][197][210][201][197][206][195][197][160][208][207][201][206][212][211]:"
1518 INPUT"[202]EWERYS TOTAL VALUE:";A
1520 INPUT"10GP [199]EMS ([200]OW MANY):";B
1522 INPUT"50GP [199]EMS:";C
1524 INPUT"100GP [199]EMS:";D
1526 INPUT"500GP [199]EMS:";E
1528 INPUT"1000GP [199]EMS:";F
1530 INPUT"5000GP [199]EMS:";G
1532 INPUT"10000GP [199]EMS:";H
1534 INPUT"50000GP [199]EMS:";I
1536 INPUT"[211][208]'S:";J
1538 INPUT"[197][208]'S:";K
1540 INPUT"[199][208]'S:";L
1542 INPUT"[208][208]'S:";M
1544 X=A+(B*10)+(C*50)+(D*100)+(E*500)+(F*1000)+(G*5000)+(H*10000)+(I*50000)
1546 Y=(J/10)+(K/2)+L+(5*M)
1548 PRINT"[212]OTAL [214]ALUE IS "X+Y"GP"
1550 INPUT"[208]LUS [205]ONSTERS [197]XP.:";N
1552 PRINT"[212]OTAL [197]XP. [208]OINTS ARE "X+Y+N
1554 GETA$:IFA$=""THEN1554
1556 RETURN
1558 PRINT"[147]"
1560 PRINT"1.[205]ISSILE [198]IRE [212]ABLE"
1562 PRINT"2.[200]IT [208]OINTS"
1564 PRINT"3.[212]HE [215]AR [205]ACHINE"
1566 PRINT"4.[205]ONEY [195]ONVERSION [212]ABLE"
1568 PRINT"5.[206]ATURAL [197]VENTS"
1570 PRINT"6.[213]NNATURAL [197]VENTS"
1572 PRINT"7.[196]URATION OF [195]HARM"
1574 PRINT"8.[205]ONSTER [210]EACTION [195]HART"
1576 PRINT"9.[205]AGIC [201]TEMS [208]RICES"
1578 PRINT" [194].[194]ACK TO [205]AIN [205]ENU"
1580 GETA$:IFA$=""THEN1580
1582 IFA$="1"THENGOSUB1604:GOTO1558
1584 IFA$="2"THENGOSUB1632:GOTO1558
1586 IFA$="3"THENGOSUB1672:GOTO1558
1588 IFA$="4"THENGOSUB1678:GOTO1558
1590 IFA$="5"THENGOSUB1690:GOTO1558
1592 IFA$="6"THENGOSUB1730:GOTO1558
1594 IFA$="7"THENGOSUB1764:GOTO1558
1596 IFA$="8"THENGOSUB1798:GOTO1558
1598 IFA$="9"THENGOSUB1806:GOTO1558
1600 IFA$="[194]"THENGOTO1228
1602 RETURN
1604 PRINT"[147]            [205]AXIMUM [210]ANGES (IN FEET)"
1606 PRINT"[215][197][193][208][207][206][211]          [211]HORT  [205]EDIUM  [204]ONG"
1608 PRINT"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
1610 PRINT"[195]ROSSBOW,[204]T        60     120    180"
1612 PRINT"[195]ROSSBOW,[200]V        80     160    240"
1614 PRINT"[204]ONG [194]OW           70     140    210"
1616 PRINT"[211]HORT [194]OW          50     100    150"
1618 PRINT"[211]LING              40      80    160"
1620 PRINT"[211]PEAR              20      40     60"
1622 PRINT"[207]IL OR [200]OLY [215]ATER  10      30     50"
1624 PRINT"[200]AND [193]XE OR [196]AGGER 10      20     30"
1626 PRINT"[198]OR [205]ISILE [194]ONUSES SEE [211][197][212] 3, P.[196]56"
1628 GETA$:IFA$=""THEN1628
1630 RETURN
1632 PRINT"[147][195][204][193][211][211]                [200][201][212][160][208][207][201][206][212][211][160][196][201][195][197]"
1634 PRINT"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
1636 PRINT"[198]IGHTER                    1D8"
1638 PRINT" [196]WARF                      1D8"
1640 PRINT"[195]LERIC                     1D6"
1642 PRINT"[197]LF                        1D6"
1644 PRINT"[200]ALFLING                   1D6"
1646 PRINT"[205]AGIC-[213]SER                 1D4"
1648 PRINT" [212]HIEF                      1D4"
1650 PRINT"[205][193][216][201][205][213][205][160][200][201][212][160][208][207][201][206][212][211]"
1652 PRINT"[196]ICE  [195]ON.      [205]AXIMUM HP"
1654 PRINT"[210]OLLS  [194]ONUS   [204]15  [204]25  [204]36"
1656 PRINT"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
1658 PRINT" [195]LERIC    54     27      87   97  108"
1660 PRINT" [198]IGHTER   72     27     111  131  153"
1662 PRINT" [205]-[213]       36     27      69   79   90"
1664 PRINT" [212]HIEF     36     27      75   95  117"
1666 PRINT"[198]OR [196]EMI-[200]UMANS [205]AX.HP, SEE [211][197][212]3 P.[196]22"
1668 GETA$:IFA$=""THEN1668
1670 RETURN
1672 PRINT"[147][211]EE [196]&[196][160][211][197][212] 3, P. [196]12"
1674 GETA$:IFA$=""THEN1674
1676 RETURN
1678 PRINT"[147]      [205][207][206][197][217][160][195][207][206][214][197][210][211][201][207][206][160][212][193][194][204][197]"
1680 PRINT"  100 CP = 1 GP       2 EP = 1 GP"
1682 PRINT"  10 SP = 1 GP        5  GP = 1PP"
1684 PRINT"1 PP = 5 GP = 10 EP = 50 SP = 500 CP"
1686 GETA$:IFA$=""THEN1686
1688 RETURN
1690 PRINT"[147]*[197]ARTHQUAKE ([205]AANJARISTYS) 10%"
1692 PRINT"[197]XPLOSION  10%"
1694 PRINT"[198]IRE,[205]INOR 50%"
1696 PRINT"*[198]IRE, [205]AJOR 10%"
1698 PRINT"[198]LOOD ([212]ULVA) 10-50%"
1700 PRINT"*[200]URRICANE 15%"
1702 PRINT"*[205]ETEOR [211]TRIKE, [205]AJOR 1%"
1704 PRINT"[205]ETEOR [211]HOWER, [205]INOR 20%"
1706 PRINT"*[208]LAGUE ([210]UTTO) 25%
1708 [153]"(null)INKHOLE ((null)AAN (null)AJOAMINEN) 5%"
1710 [153]"(null)TORM 80%"
1712 [153]"*(null)ORNADO 25%"
1714 [153]"*(null)OLCANO ((null)ULIVUORENPURKAUS) 2%"
1716 [153]"(null)HIRLPOOL ((null)URIMUS) 25%"
1718 [153]"(null)EE MORE (null)VAL(null) 3, P.STR$10
1720 PRINT"* '[196]ISASTERS' ([203]ATASTROFI,[212]UHO)"
1722 PRINT"1-4 UNNATURAL OR NATURAL EVENTS PER "
1724 PRINT"GAME YEAR."
1726 GETA$:IFA$=""THEN1726
1728 RETURN
1730 PRINT"[147][193]SSASSINATION ([211]ALAMURHA) 10%"
1732 PRINT"[194]ANDITS ([214]ARKAAT) 50%"
1734 PRINT"[194]ORDER [211]KIRMISH ([210]AJAKAHAKKA) 40%"
1736 PRINT"[195]ULTURAL [196]ISCOVERY 10%"
1738 PRINT"[201]NSURRECTION ([203]APINA) 10%"
1740 PRINT"[205]AGICAL [200]APPENING 30%"
1742 PRINT"[205]IGRATION ([203]ANSAINVAELLUS) 10%"
1744 PRINT"[213]SURPER ([214]ALLANKAAPPAAJA) 10%"
1746 PRINT"[211]PY [210]ING ([214]AKOILUKETJU) 60%"
1748 PRINT"[212]RAITOR ([203]AVALTAJA) 30%"
1750 PRINT"[214][201][208] [214]ISITOR 10%"
1752 PRINT"[215]ANDERING [205]ONSTER, 20 [200][196]+   75%"
1754 PRINT"[198]OR MORE, SEE [211][197][212] 3, P.[196]10"
1756 PRINT"1-4 UNNATURAL OR NATURAL EVENTS PER "
1758 PRINT"GAME YEAR."
1760 GETD$:IFD$=""THEN1760
1762 RETURN
1764 PRINT"[147][201]NTELLIGENCE          [211]AVE AGAIN AFTER"
1766 PRINT"0                   120 DAYS"
1768 PRINT"190 DAYS"
1770 PRINT"260 DAYS"
1772 PRINT"345 DAYS"
1774 PRINT"4-530 DAYS"
1776 PRINT"6-815 DAYS"
1778 PRINT"9-127 DAYS"
1780 PRINT"13-15                   3 DAYS"
1782 PRINT"16-17                 24 HOURS"
1784 PRINT" 18                    8 HOURS"
1786 PRINT" 19                    3 HOURS"
1788 PRINT"20                    1 HOUR"
1790 PRINT"21+                   1 TURN"
1792 PRINT"  (10 MINUTES)"
1794 GETA$:IFA$=""THEN1794
1796 RETURN
1798 PRINT"[147][205][207][206][211][212][197][210][160][210][197][193][195][212][201][207][206][160][195][200][193][210][212]"
1800 PRINT"[211]EE [196]&[196][160][211][197][212] 4, P.[196]9"
1802 GETA$:IFA$=""THEN1802
1804 RETURN
1806 PRINT"[147] [205][193][199][201][195][160][201][212][197][205][211][160][208][210][201][195][197][160][210][193][206][199][197][211]"
1808 PRINT"[193]RMOR              10.000-150.000GP"
1810 PRINT"[205]ISC. [201]TEM         5.000-750.000GP"
1812 PRINT"[205]ISC. [215]EAPON       5.000-250.000GP"
1814 PRINT"[205]ISSILE            1.000-5.000GP"
1816 PRINT"[205]ISSILE [196]EVICE     10.000-250.000GP"
1818 PRINT"[208]OTION             1.000-10.000GP"
1820 PRINT"[210]ING               10.000-250.000GP"
1822 PRINT"[210]OD                25.000-500.000GP"
1824 PRINT"[211]CROLL             5.000-75.000GP"
1826 PRINT"[211]HIELD             5.000-75.000GP"
1828 PRINT"[211]TAFF              15.000-300.000GP"
1830 PRINT"[211]WORD              5.000-500.000GP"
1832 PRINT"[215]AND               5.000-150.000GP"
1834 GETA$:IFA$=""THEN1834
1836 RETURN
1838 GOTO0
5000 REM ** THE BALRON **
5003 POKE53280,12:POKE53281,12:PRINT""
5010 PRINT"[147][155][205]ENU 3"
5020 PRINT"[196][213][206][199][197][207][206][211]"
5030 PRINT"&"
5040 PRINT"[196][210][193][199][207][206][211]"
5050 PRINT"[153][205][207][210][197] [193][201][196]"
5060 PRINT"[149][183][183][183][183][183][183][183][183][183][183]"
5070 PRINT"[151][194]Y [212]HE [194]ALRON 1987"
5080 PRINT"1.[215]AND,STAFF OR ROD"
5090 PRINT"2.[210]INGS"
5100 PRINT"3.[211]CROLLS"
5110 PRINT"4.[205]ISC.ITEMS"
5115 PRINT"5.[205]ISSILE OR DEVICE"
5116 PRINT"6.[205]ENU 1"
5117 SYS49152
5120 GETA$:IFA$=""THEN5120
5130 IFA$="1"THEN5180
5140 IFA$="2"THEN5750
5150 IFA$="3"THEN6280
5160 IFA$="4"THEN20000
5165 IFA$="5"THEN25000
5166 IFA$="6"THEN0
5170 IFA$<>"1"ANDA$<>"2"ANDA$<>"3"ANDA$<>"4"ANDA$<>"5"ANDA$<>"6"THEN5120
5180 PRINT""
5190 CLR:POKE53281,12:POKE53280,12
5200 INPUT"[147][200]OW MANY WANDS/STAVES/RODS";H
5210 PRINT"[147]"
5220 PRINT"[212]YPE OF WAND/STAFF/ROD + CHARGES"
5230 PRINT"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][158]"
5240 FORI=1TOH
5250 X=INT(100*RND(TI)+1)
5260 IFX<=5THENPRINT"WAND OF COLD";:GOSUB5670:PRINTY
5270 IFX=>6ANDX<=10THENPRINT"WAND OF ENEMY DETECTION";:GOSUB5670:PRINTY
5280 IFX=>11ANDX<=14THENPRINT"WAND OF FEAR";:GOSUB5670:PRINTY
5290 IFX=>15ANDX<=19THENPRINT"WAND OF FIRE BALLS";:GOSUB5670:PRINTY
5300 IFX=>20ANDX<=23THENPRINT"WAND OF ILLUSION";:GOSUB5670:PRINTY
5310 IFX=>24ANDX<=28THENPRINT"WAND OF LIGHTNING BOLTS";:GOSUB5670:PRINTY
5320 IFX=>29ANDX<=33THENPRINT"WAND OF MAGIC DETECTION";:GOSUB5670:PRINTY
5330 IFX=>34ANDX<=38THENPRINT"WAND OF METAL DETECTION";:GOSUB5670:PRINTY
5340 IFX=>39ANDX<=42THENPRINT"WAND OF NEGATION";:GOSUB5670:PRINTY
5350 IFX=>43ANDX<=47THENPRINT"WAND OF PARALYZATION";:GOSUB5670:PRINTY
5360 IFX=>48ANDX<=52THENPRINT"WAND OF POLYMORPHING";:GOSUB5670:PRINTY
5370 IFX=>53ANDX<=56THENPRINT"WAND OF SEC.DOOR DETECTION";:GOSUB 5670:PRINTY
5380 IFX=>57ANDX<=60THENPRINT"WAND OF TRAP DETECTION";:GOSUB 5670:PRINTY
5390 IFX=61THENPRINT"STAFF OF COMMANDING";:GOSUB 5690:PRINTZ
5400 IFX=>62ANDX<=63THENPRINT"STAFF OF DISPELLING";:GOSUB 5690:PRINTZ
5410 IFX=>64ANDX<=66THENPRINT"STAFF OF THE DRUIDS";:GOSUB5690:PRINTZ
5420 IFX=>67ANDX<=69THENPRINT"STAFF OF AN ELEMENT";:GOSUB5690:PRINTZ
5430 IFX=>70ANDX<=71THENPRINT"STAFF OF HARMING";:GOSUB5690:PRINTZ
5440 IFX=>72ANDX<=78THENPRINT"STAFF OF HEALING";:GOSUB5690:PRINTZ
5450 IFX=79THENPRINT"STAFF OF POWER";:GOSUB5690:PRINTZ
5460 IFX=>80ANDX<=82THENPRINT"SNAKE STAFF";:GOSUB5690:PRINTZ
5470 IFX=>83ANDX<=85THENPRINT"STAFF OF STRIKING";:GOSUB5690:PRINTZ
5480 IFX=>86ANDX<=87THENPRINT"STAFF OF WITHERING";:GOSUB5690:PRINTZ
5490 IFX=88THENPRINT"STAFF OF WIZARDRY";:GOSUB5690:PRINTZ
5500 IFX=>89ANDX<=90THENPRINT"ROD OF CANCELLATION"
5510 IFX=91THENPRINT"ROD OF DOMINION"
5520 IFX=92THENPRINT"ROD OF HEALTH"
5530 IFX=>93ANDX<=94THENPRINT"ROD OF INERTIA"
5540 IFX=95THENPRINT"ROD OF PARRYING"
5550 IFX=96THENPRINT"ROD OF VICTORY"
5560 IFX=>97ANDX<=99THENPRINT"ROD OF WEAPONRY"
5570 IFX=100THENPRINT"ROD OF THE WYRM"
5580 IFI=18THENPRINT"[158][208]RESS A KEY":GOSUB5710
5590 IFI=36THENPRINT"[158][208]RESS A KEY":GOSUB5710
5600 IFI=54THENPRINT"[158][208]RESS A KEY":GOSUB5710
5610 NEXT
5620 PRINT"[206]EW WANDS/STAVES/RODS (Y/N)"
5630 GETR$:IFR$=""THEN5630
5640 IFR$="Y"THEN5190
5650 IFR$="N"THEN5000
5660 IFR$<>"Y"ANDR$<>"N"THEN5630
5670 Y=(INT(10*RND(TI)+1)*3)
5680 RETURN
5690 Z=(INT(20*RND(TI)+1)*2)
5700 RETURN
5710 GETA$:IFA$=""THEN5710
5720 PRINT"[147][212]YPE OF WAND/STAFF/ROD + CHARGES"
5730 PRINT"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][158]"
5740 RETURN
5750 CLR:PRINT""
5760 POKE53281,12:POKE53280,12
5770 PRINT"[147]"
5780 INPUT"[200]OW MANY RINGS";H
5790 PRINT"[147][210]ING OF:[158]"
5800 FORI=1TOH
5810 X=INT(100*RND(TI)+1)
5820 IFX<=2THENPRINT"ANIMAL CONTROL"
5830 IFX=>3ANDX<=8THENPRINT"DELUSION"
5840 IFX=9THENPRINT"DJINNI SUMMONING"
5850 IFX=>10ANDX<=13THENPRINT"EAR RING"
5860 IFX=>14ANDX<=17THENPRINT"ELEMANTAL ADAPTATION"
5870 IFX=>18ANDX<=23THENPRINT"FIRE RECISTANCE"
5880 IFX=>24ANDX<=26THENPRINT"HOLINESS"
5890 IFX=27THENPRINT"HUMAN CONTROL"
5900 IFX=>28ANDX<=32THENPRINT"INVISIBILITY"
5910 IFX=>33ANDX<=35THENPRINT"LIFE PROTECTION"
5920 IFX=>36ANDX<=38THENPRINT"MEMORY"
5930 IFX=>39ANDX<=40THENPRINT"PLANT CONTROL"
5940 IFX=>41ANDX<=45THENPRINT"PROTECTION +1"
5950 IFX=>46ANDX<=48THENPRINT"PROTECTION +2"
5960 IFX=>49ANDX<=50THENPRINT"PROTECTION +3"
5970 IFX=51THENPRINT"PROTECTION +4"
5980 IFX=>52ANDX<=55THENPRINT"QUICKNESS"
5990 IFX=56THENPRINT"REGENERATION"
6000 IFX=>57ANDX<=59THENPRINT"REMEDIS"
6010 IFX=>60ANDX<=61THENPRINT"SAFETY"
6020 IFX=>62ANDX<=64THENPRINT"SEEING"
6030 IFX=>65ANDX<=67THENPRINT"SPELL EATING"
6040 IFX=>68ANDX<=69THENPRINT"SPELL STORING"
6050 IFX=>70ANDX<=71THENPRINT"SPELL TURNING"
6060 IFX=>72ANDX<=75THENPRINT"SURVIVAL"
6070 IFX=>76ANDX<=77THENPRINT"TELEKINESIS"
6080 IFX=>78ANDX<=81THENPRINT"TRUTH"
6090 IFX=>82ANDX<=84THENPRINT"TRUTHFULNESS"
6100 IFX=>85ANDX<=86THENPRINT"TRUTHLESSNESS"
6110 IFX=>87ANDX<=91THENPRINT"WATER WALKING"
6120 IFX=>92ANDX<=96THENPRINT"WEAKNESS"
6130 IFX=>97ANDX<=98THENPRINT"WISHES"
6140 IFX=>99ANDX<=100THENPRINT"[216]-RAY VISION"
6150 IFI=18THENGOSUB6240
6160 IFI=36THENGOSUB6240
6170 IFI=54THENGOSUB6240
6180 NEXTI
6190 PRINT"[158][206]EW RINGS (Y/N)"
6200 GETA$:IFA$=""THEN6200
6210 IFA$="Y"THEN5750
6220 IFA$="N"THEN5000
6230 IFA$<>"Y"ANDA$<>"N"THEN6200
6240 PRINT"[158][208]RESS A KEY"
6250 GETA$:IFA$=""THEN6250
6260 PRINT"[147][210]ING OF:[158]"
6270 RETURN
6280 CLR:POKE53281,12:POKE53280,12
6290 INPUT"[147][200]OW MANY SCROLLS";H
6300 PRINT"[147][212]YPE OF SCROLL:[158]"
6310 PRINT"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
6320 FORI=1TOH
6330 X=INT(100*RND(TI)+1)
6340 IFX<=3THENPRINT"COMMUNICATION"
6350 IFX=>4ANDX<=5THENPRINT"CREATION"
6360 IFX=>6ANDX<=13THENPRINT"CURSE"
6370 IFX=14THENPRINT"DELAY"
6380 IFX=>15ANDX<=17THENPRINT"EQUIPMENT"
6390 IFX=>18ANDX<=19THENPRINT"ILLUMINATION"
6400 IFX=>20ANDX<=21THENPRINT"MAGES"
6410 IFX=>22ANDX<=25THENPRINT"MAP TO NORMAL TREASURE"
6420 IFX=>26ANDX<=28THENPRINT"MAP TO MAGICAL TREASURE"
6430 IFX=>29ANDX<=30THENPRINT"MAP TO COMBINED TREASURE"
6440 IFX=31THENPRINT"MAP TO SPECIAL TREASURE"
6450 IFX=>32ANDX<=34THENPRINT"MAPPING"
6460 IFX=>35ANDX<=36THENPRINT"PORTALS"
6470 IFX=>37ANDX<=42THENPRINT"PROTECTION FROM ELEMENTALS"
6480 IFX=>43ANDX<=50THENPRINT"PROTECTION FROM LYCANTHROPES"
6490 IFX=>51ANDX<=54THENPRINT"PROTECTION FROM MAGIC"
6500 IFX=>55ANDX<=61THENPRINT"PROTECTION FROM UNDEAD"
6510 IFX=>62ANDX<=63THENPRINT"QUESTIONING"
6520 IFX=64THENPRINT"REPETITION"
6530 IFX=>65ANDX<=66THENPRINT"SEEING"
6540 IFX=>67ANDX<=68THENPRINT"SHELTER"
6550 IFX=>69ANDX<=71THENPRINT"SPELL CATCHING"
6560 IFX=>72ANDX<=96THENPRINT"SPELLS ";:GOSUB6710
6570 IFX=>97ANDX<=98THENPRINT"TRAPPING"
6580 IFX=>99ANDX<=100THENPRINT"TRUTH"
6590 IFI=18THENGOSUB6960
6600 IFI=36THENGOSUB6960
6610 IFI=54THENGOSUB6960
6620 IFI=72THENGOSUB6960
6630 IFI=90THENGOSUB6960
6640 NEXTI
6650 PRINT"[206]EW SCROLLS (Y/N)"
6660 GETA$:IFA$=""THEN6660
6670 IFA$="Y"THEN6280
6680 IFA$="N"THEN5000
6690 IFA$<>"Y"ANDA$<>"N"THEN6660
6700 END
6710 Y=INT(100*RND(TI)+1):CL=0:MU=0
6720 IFY<=70THENPRINT"MAGIC-USER ";:MU=1
6730 IFY=>71ANDY<=95THENPRINT"CLERIC ";:CL=1
6740 IFY=>96ANDY<=100THENPRINT"DRUID ";:CL=1
6750 IFCL<>1THEN6850
6760 T=INT(100*RND(TI)+1)
6770 IFT<=34THENPRINT"1"
6780 IFT=>35ANDT<=58THENPRINT"2"
6790 IFT=>59ANDT<=76THENPRINT"3"
6800 IFT=>77ANDT<=88THENPRINT"4"
6810 IFT=>89ANDT<=95THENPRINT"5"
6820 IFT=>96ANDT<=99THENPRINT"6"
6830 IFT=100THENPRINT"7"
6840 RETURN
6850 R=INT(100*RND(TI)+1)
6860 IFR<=28THENPRINT"1"
6870 IFR=>29ANDR<=49THENPRINT"2"
6880 IFR=>50ANDR<=64THENPRINT"3"
6890 IFR=>65ANDR<=75THENPRINT"4"
6900 IFR=>76ANDR<=84THENPRINT"5"
6910 IFR=>85ANDR<=91THENPRINT"6"
6920 IFR=>92ANDR<=96THENPRINT"7"
6930 IFR=>97ANDR<=99THENPRINT"8"
6940 IFR=100THENPRINT"9"
6950 RETURN
6960 PRINT"[208]RESS A KEY"
6970 GETA$:IFA$=""THEN6970
6980 PRINT"[147][212]YPE OF SCROLL:[158]"
6990 PRINT"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
7000 RETURN
20000 CLR:POKE53281,12:POKE53280,12
20010 INPUT"[147][200]OW MANY MISCELLANEOUS ITEMS";H
20020 PRINT"[147][212]YPE OF MISCELLANEOUS ITEM:[158]"
20030 PRINT"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
20040 FORI=1TOH
20050 X=INT(100*RND(TI)+1)
20060 IFX<=2THENPRINT"AMULET OF PROT.FROM CRYST.BALLS AND [197][211][208]"
20070 IFX=>3ANDX<=4THENPRINT"BAG OF DEVOURING"
20080 IFX=>5ANDX<=9THENPRINT"BAG OF HOLDING"
20090 IFX=>10ANDX<=12THENPRINT"BOAT,UNDERSEA"
20100 IFX=>13ANDX<=14THENPRINT"BOOTS OF LEVITATION"
20110 IFX=>15ANDX<=17THENPRINT"BOOTS OF SPEED"
20120 IFX=>18ANDX<=19THENPRINT"BOOTS OF TRAVELING AND LEAPING"
20130 IFX=20THENPRINT"BOWL OF COMMANDING WATER ELEMENTALS"
20140 IFX=21THENPRINT"BRAZIER OF COMMANDING FIRE ELEMENTALS"
20150 IFX=>22ANDX<=23THENPRINT"BROOM OF FLYING"
20160 IFX=24THENPRINT"CENSER OF CONTROLLING AIR ELEMENTALS"
20170 IFX=>25ANDX<=27THENPRINT"CHIME OF TIME"
20180 IFX=>28ANDX<=29THENPRINT"CRYSTAL BALL"
20190 IFX=30THENPRINT"CRYSTAL BALL WITH CLAIRAUDIENCE"
20200 IFX=31THENPRINT"CRYSTAL BALL WITH [197][211][208]"
20210 IFX=>32ANDX<=33THENPRINT"DISPLACER CLOAK"
20220 IFX=34THENPRINT"DRUMS OF PANIC"
20230 IFX=35THENPRINT"EEFRETI BOTTLE"
20240 IFX=>36ANDX<=38THENPRINT"EGGS OF WONDER"
20250 IFX=>39ANDX<=40THENPRINT"ELVEN CLOAK"
20260 IFX=>41ANDX<=42THENPRINT"ELVEN BOOTS"
20270 IFX=43THENPRINT"FLYING CARPET"
20280 IFX=>44ANDX<=45THENPRINT"GAUNTLETS OF OGRE POWER"
20290 IFX=>46ANDX<=47THENPRINT"GIRDLE OF GIANT STRENGTH"
20300 IFX=>48ANDX<=49THENPRINT"HELM OF ALIGNMENT CHANGING"
20310 IFX=>50ANDX<=51THENPRINT"HELM OF READING"
20320 IFX=52THENPRINT"HELM OF TELEPATHY"
20330 IFX=53THENPRINT"HELM OF TELEPORTATION"
20340 IFX=54THENPRINT"HORN OF BLASTING"
20350 IFX=>55ANDX<=57THENPRINT"LAMP OF LONGBURNING"
20360 IFX=>58ANDX<=59THENPRINT"LAMP,HURRICANE"
20370 IFX=>60ANDX<=61THENPRINT"MEDALLION OF [197][211][208], 30' RANGE"
20380 IFX=62THENPRINT"MEDALLION OF [197][211][208], 90' RANGE"
20390 IFX=63THENPRINT"MIRROR OF LIFE TRAPPING"
20400 IFX=>64ANDX<=66THENPRINT"MUZZLE OF TRAINGING"
20410 IFX=>67ANDX<=68THENPRINT"NAIL,FINGER"
20420 IFX=>69ANDX<=71THENPRINT"NAIL OF POINTING"
20430 IFX=>72ANDX<=76THENPRINT"OINTMENT"
20440 IFX=>77ANDX<=79THENPRINT"POUCH OF SECURITY"
20450 IFX=>80ANDX<=82THENPRINT"QUILL OF COPYING"
20460 IFX=>83ANDX<=86THENPRINT"ROPE OF CLIMBING"
20470 IFX=>87ANDX<=88THENPRINT"SCARAB OF PROTECTION"
20480 IFX=>89ANDX<=91THENPRINT"SLATE OF IDENTIFICATION"
20490 IFX=92THENPRINT"STONE OF CONTROLLING EARTH ELEMENTALS"
20500 IFX=>93ANDX<=94THENPRINT"TALISMAN OF ELEMENTAL TRAVEL"
20510 IFX=>95ANDX<=97THENPRINT"WHEEL OF FLOATING"
20520 IFX=98THENPRINT"WHEEL OF FORTUNE"
20530 IFX=>99ANDX<=100THENPRINT"WHEEL,SQUARE"
20540 IFI=18THENGOSUB20650
20550 IFI=36THENGOSUB20650
20560 IFI=54THENGOSUB20650
20570 IFI=72THENGOSUB20650
20580 IFI=90THENGOSUB20650
20590 NEXT
20600 PRINT"[206]EW ITEMS (Y/N)"
20610 GETA$:IFA$=""THEN20610
20620 IFA$="Y"THEN20000
20630 IFA$="N"THEN5000
20640 IFA$<>"N"ANDA$<>"Y"THEN20610
20650 PRINT"[208]RESS A KEY"
20660 GETA$:IFA$=""THEN20660
20670 PRINT"[147][212]YPE OF MISCELLANEOUS ITEM:[158]"
20680 PRINT"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
20690 RETURN
25000 PRINT"[147]"
25010 X=INT(100*RND(TI)+1)
25020 IFX<=37THENPRINT"ARROWS";:WC=1
25030 IFX=>38ANDX<=59THENPRINT"QUARRLES";:WC=1
25040 IFX=>60ANDX<=70THENPRINT"SLING STONES";:WC=1
25050 IFX=>71ANDX<=72THENPRINT"BLOWGUN";:WC=2
25060 IFX=>73ANDX<=80THENPRINT"LONGBOW";:WC=2
25070 IFX=>81ANDX<=85THENPRINT"SHORTBOW";:WC=2
25080 IFX=>86ANDX<=87THENPRINT"HEAVY CROSSBOW";:WC=2
25090 IFX=>88ANDX<=92THENPRINT"LIGHT CROSSBOW";:WC=2
25100 IFX=>93THENPRINT"SLING";:WC=2
25110 REM ** STRENGTH **
25120 IFWC=1THEN25140
25130 IFWC=2THEN25440
25140 GOSUB26090
25150 IFX<=40THENPRINT"+1";:CB=30:KE=10:RN=2
25160 IFX=>41ANDX<=67THENPRINT"+2";:CB=25:KE=4:RN=2
25170 IFX=>68ANDX<=84THENPRINT"+3";:CB=20:KE=6:RN=2
25180 IFX=>85ANDX<=94THENPRINT"+4";:CB=15:KE=4:RN=2
25190 IFX=>95ANDX<=100THENPRINT"+5";:CB=10:YK=1
25200 GOSUB26090
25210 IFX>CBTHEN26000
25220 GOSUB26090
25230 IFX<=4THENPRINT"+BITING";
25240 IFX=>5ANDX<=9THENPRINT"+BLINKING";
25250 IFX=>10ANDX<=14THENPRINT"+CHARMING";
25260 IFX=>15ANDX<=21THENPRINT"+CLIMBING";
25270 IFX=>22ANDX<=31THENPRINT"+CURING";
25280 IFX=>32ANDX<=34THENPRINT"+DISARMING";
25290 IFX=>35ANDX<=38THENPRINT"+DISPELLING";
25300 IFX=>39ANDX<=45THENPRINT"+FLYING";
25310 IFX=>46ANDX<=52THENPRINT"+LIGHTING";
25320 IFX=>53ANDX<=57THENPRINT"+PENETRATING";
25330 IFX=>58ANDX<=61THENPRINT"+REFILLING";
25340 IFX=>62ANDX<=67THENPRINT"+SCREAMING";
25350 IFX=>68ANDX<=72THENPRINT"+SEEKING";
25360 IFX=>73ANDX<=76THENPRINT"+SINKING";
25370 IFX=>77ANDX<=78THENPRINT"+SLAYING";
25380 IFX=>79ANDX<=85THENPRINT"+SPEAKING";
25390 IFX=>86ANDX<=89THENPRINT"+STUNNING";
25400 IFX=>90ANDX<=91THENPRINT"+TELEPORTING";
25410 IFX=>92ANDX<=96THENPRINT"+TRANSPORTING";
25420 IFX=>97ANDX<=100THENPRINT"+WOUNDING";
25430 GOTO26000
25440 GOSUB26090
25450 IFX<=70THENPRINT"+1";:CB=30
25460 IFX=>71ANDX<=88THENPRINT"+2";:CB=25
25470 IFX=>89ANDX<=96THENPRINT"+3";:CB=20
25480 IFX=>97ANDX<=99THENPRINT"+4";:CB=15
25490 IFX=100THENPRINT"+5";:CB=10
25500 GOSUB26090
25510 IFX>CBTHEN26000
25520 REM *********
25530 S=INT(100*RND(TI)+1)
25540 IFS<=29THENPRINT"+1 VS.";
25550 IFS=>30ANDS<=50THENPRINT"+2 VS.";
25560 IFS=>51ANDS<=64THENPRINT"+3 VS.";
25570 IFS=>65ANDS<=72THENPRINT"+4 VS.";
25580 IFS=>73ANDS<=75THENPRINT"+5 VS.";
25590 IFS=>76ANDS<=100THENPRINT" + ";:GOTO25770
25600 REM *** OPPONENTS ***
25610 I=INT(100*RND(TI)+1)
25620 IFI<=6THENPRINT"[194]UGS"
25630 IFI=>7ANDI<=9THENPRINT"[195]ONSTRUCTS"
25640 IFI=>10ANDI<=15THENPRINT"[196]RAGONS"
25650 IFI=>16ANDI<=24THENPRINT"[197]NCHANTED MONSTERS"
25660 IFI=>25ANDI<=36THENPRINT"[199]IANTS"
25670 IFI=>37ANDI<=48THENPRINT"[204]YCANTHROPES"
25680 IFI=>49ANDI<=52THENPRINT"[207]THER-PLANAR CREATURES"
25690 IFI=>53ANDI<=58THENPRINT"[210]EGENERATING [195]REATURES"
25700 IFI=>59ANDI<=67THENPRINT"[210]EPTILES (AND [196]INOSAURS)"
25710 IFI=>68ANDI<=70THENPRINT"[211]PELL [201]MMUNE CREATURES"
25720 IFI=>71ANDI<=76THENPRINT"[211]PELL [213]SERS"
25730 IFI=>77ANDI<=88THENPRINT"[213]NDEAD"
25740 IFI=>89ANDI<=94THENPRINT"[215]ATER-[194]REATHING [195]REATURES"
25750 IFI=>95ANDI<=100THENPRINT"[215]EAPON-[213]SING [195]REATURES"
25760 GOTO26000
25770 REM *** TALENT ***
25780 P=INT(100*RND(TI)+1)
25790 IFP<=5THENPRINT"[194]REATHING"
25800 IFP=>6ANDP<=12THENPRINT"[195]HARMING"
25810 IFP=>13ANDP<=16THENPRINT"[196]ECEIVING"
25820 IFP=>17ANDP<=23THENPRINT"[196]EFENDING"
25830 IFP=>24ANDP<=25THENPRINT"[196]EFLECTOR"
25840 IFP=>26ANDP<=27THENPRINT"[196]RAINING"
25850 IFP=>28ANDP<=32THENPRINT"[197]XTINGUISHING"
25860 IFP=>33ANDP<=38THENPRINT"[198]INDING"
25870 IFP=>39ANDP<=43THENPRINT"[198]LAMING"
25880 IFP=>44ANDP<=46THENPRINT"[198]LYING"
25890 IFP=>47ANDP<=54THENPRINT"[200]EALING"
25900 IFP=>55ANDP<=59THENPRINT"[200]IDING"
25910 IFP=>60ANDP<=65THENPRINT"[200]OLDING"
25920 IFP=>66ANDP<=73THENPRINT"[204]IGHTNING"
25930 IFP=>74ANDP<=79THENPRINT"[211]ILENCING"
25940 IFP=>80ANDP<=81THENPRINT"[211]LICING"
25950 IFP=>82ANDP<=85THENPRINT"[211]LOWING"
25960 IFP=>86ANDP<=89THENPRINT"[211]PEEDING"
25970 IFP=>90ANDP<=94THENPRINT"[212]RANSLATING"
25980 IFP=>95ANDP<=99THENPRINT"[215]ATCHING"
25990 IFP=100THENPRINT"[215]ISHING"
26000 IFWC=2THEN26040
26010 IFYK=1THEN NF=(INT(4*RND(TI)+1)+1):GOTO26030
26020 NF=INT(KE*RND(TI)+RN)
26030 PRINT" *";NF
26040 REM
26050 GETA$:IFA$=""THEN26050
26060 IFA$=CHR$(32)THEN25000
26070 IFA$=CHR$(13)THEN5000
26080 IFA$<>CHR$(32)ANDA$<>CHR$(13)THEN26050
26090 X=INT(100*RND(TI)+1):RETURN